home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / VBASIC / SHELDEMO.ZIP / GLOBAL.BAS next >
Encoding:
BASIC Source File  |  1996-07-19  |  585 b   |  15 lines

  1. Attribute VB_Name = "Global"
  2. Option Explicit
  3.  
  4. #If Win16 Then
  5.     Declare Function ShellAbout Lib "shell.dll" (ByVal hWnd As Integer, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Integer) As Long
  6. #ElseIf Win32 Then
  7.     Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal hWnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long
  8. #End If
  9.  
  10. Sub AppAbout(AppForm As Form, szTitle As String, szOtherInfo As String)
  11.     Call ShellAbout(AppForm.hWnd, szTitle, szOtherInfo, AppForm.Icon)
  12. End Sub
  13.  
  14.  
  15.